program cdvi(dvifile,output); {creates a test dvi file}
var dvifile:packed file of 0..255;
k,l:integer;
procedure w(x:integer);
begin write(dvifile,x); writeln(l:0,':',x:0);
l:=l+1;
end;
procedure a(x:integer);
begin if x<0 then w(x+256) else w(x);
end;
procedure b(x:integer);
begin if x<0 then x:=x+256*256;
w(x div 256); w(x mod 256);
end;
procedure c(x:integer);
begin if x<0 then x:=x+256*256*256;
w(x div (256*256)); b(x mod (256*256));
end;
procedure d(x:integer);
begin if x<0 then
	begin x:=x+64*256*256*256;
	x:=x+64*256*256*256;
	w(x div (256*256*256) + 128);
	end
else w(x div (256*256*256));
c(x mod (256*256*256));
end;
begin l:=0; rewrite(dvifile,'','/B:8');
a(138); {nop}
a(139);d(0);d(1);d(-2);d(3);d(4);d(5);d(6);d(7);d(8);d(9);d(-1); {bop}
a(157);a(30); {down1}
a(141); {push}
a(162);a(-2); {y1}
a(173); {fontnum2}
a(161); {y0}
a(104); {setchar104 `h'}
a(143);a(20); {right1}
a(105); {setchar105 `i'}
a(150);c(-10*256*256); {w3}
a(33); {setchar33 `!'}
a(141); {push}
a(132);d(6553);d(6554); {set rule}
a(142); {pop}
a(142); {pop}
a(239);a(3);a(98);a(121);a(101); {xxx'bye'}
a(140); {eop}
a(138); {nop}
k:=l; {location of pst}
a(240); {pst}
d(1); {location of first bop}
d(25400000); {numerator}
d(473628672); {denominator}
d(1200); {magnification}
d(1000); {page height}
d(1000); {page width}
b(2); {stack depth}
b(1); {number of bops}
d(2); {font number 2}
d(0); {check sum}
d(655360); {design size}
a(0);a(5);a(99);a(109);a(114);a(49);a(48); {cmr10}
d(-1); {end of fonts}
d(k); {pst pointer}
a(2); {ID byte}
a(223);a(223);a(223);a(223);
while l mod 4 <>0 do w(223);
end.